home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 163 / 163.d81 / crater maker (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  133 lines
  1. 5 poke55,.:poke56,56:clr
  2. 10 dv=peek(186):ifdv<8thendv=8
  3. 15 poke53281,.:poke53280,.:print"[147]"
  4. 16 poke53371,0
  5. 25 poke53272,31
  6. 35 ad=49152:tq=ti
  7. 40 sysad:sysad+12
  8. 45 sysad+9,0
  9. 50 print"[147][153]       [196]edicated to the memory of-"
  10. 55 print:printtab(5)"[197]ugene [211]hoemaker  [1928 - 1997]"
  11. 57 print:printtab(8)"[196]ied doing what he loved!"
  12. 70 ifti<tq+150then70
  13. 80 sysad+9,1
  14. 90 bs$="[150][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164]"
  15. 95 print"[147][150][220][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][221]"
  16. 100 printbs$""tab(38)bs$
  17. 105 print"[150][255][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][161]"
  18. 110 print""tab(11)"[150][166] [195][210][193][212][197][210] [205][193][203][197][210][150] [165]"
  19. 115 print:printtab(5)"[150]-[153][197]nter [208]arameters for [207]bject [150]-"
  20. 120 poke214,6:print:printtab(4)"[159][196]iameter [158]([205]eters - 50+): ";
  21. 122 l9%=5:gosub385:id=q9
  22. 125 ifid<=49thenprint"[145]":goto120
  23. 127 sysad+9,2
  24. 130 poke214,8:print:printtab(4)"[159][196]ensity [158](kg/cu/m - 2000+): ";
  25. 132 l9%=4:gosub385:ir=q9
  26. 135 ifir=<1999thenprint"[145]":goto130
  27. 137 sysad+9,2
  28. 140 poke214,10:print:printtab(4)"[159][214]elocity [158](km/s - 4+): ";
  29. 142 l9%=4:gosub385:ik=q9
  30. 145 ifik=<4thenprint"[145]":goto140
  31. 147 sysad+9,2
  32. 150 poke214,12:print:printtab(4)"[159][193]ngle [158]20[219] [159]to [158]90[219]: ";:l9%=2:gosub385:ga=q9
  33. 155 ifga=<20orga=>91thenprint"[145]":goto150
  34. 157 sysad+9,2
  35. 160 poke214,17:print:printtab(3)"[153][193]re the parameters correct? (y[153]/n[153])"
  36. 170 gosub530
  37. 175 ifa$="n"then80
  38. 190 iv=ik*1000:vi=(NULL)*id*id*id/6
  39. 195 gf=(sin(ga/180*(NULL)))^.33
  40. 200 mi=ir*vi:ke=.5*mi*iv*iv
  41. 205 kt=ke/4.2e+12
  42. 210 print"[147]"tab(7)"[150]-[154][207]bject's [208]arameters[150]-":sysad+9,3
  43. 215 print"[158][214]olume: ";int(vi);"[158]cu/m"
  44. 220 print"[205]ass: ";int(mi)/1000;"[158]metric tons"
  45. 225 print"[203]inetic [197]nergy: ";int(ke)"[158][202]oules"
  46. 230 print"[203]ilo-[212]ons of [212][206][212]: ";int(kt)
  47. 245 cd=36*(kt^.3)*gf:ca=cd*1.25
  48. 250 cz=9*(kt^.3)*gf:cl=cz*1.25
  49. 255 cv=(.5*(NULL))*(cd*cd/4*cz)
  50. 260 ce=2.15*cd
  51. 265 ifca=>5000thenca=ca*1.3
  52. 270 ifcl=>5000thencl=cl*1.3
  53. 275 printtab(8)"[150]-[154][195]rater [208]arameters[150]-"
  54. 280 printtab(3)"[150]-[159][196][201][193][205][197][212][197][210][150]-"
  55. 285 print"[158][193]ctual [211]ize: ";int(cd)/1000;"[158]kms"
  56. 290 print"[193]pparent [211]ize: ";int(ca)/1000;"[158]kms"
  57. 295 print:printtab(3)"[150]-[159][196][197][208][212][200][150]-"
  58. 300 print"[158][193]ctual [196]epth: ";int(cz)/1000;"[158]kms"
  59. 305 print"[193]pparent [196]epth: ";int(cl)/1000;"[158]kms"
  60. 310 print"[212]arget [210]emoved: ";int(cv)/1000;"[158]cu/kms"
  61. 315 print"[197]jecta [211]pread: ";int(ce)/1000;"[158][203]ms [193]cross":sysad+9,4
  62. 320 ifint(cd)>=100andint(cd)<=3999thengosub435
  63. 325 ifint(cd)>=4000andint(cd)<=14999thengosub455
  64. 330 ifint(cd)>=15000andint(cd)<=75000thengosub475
  65. 335 ifint(cd)>=75001andint(cd)<=125000thengosub495
  66. 340 ifint(cd)>=125001thengosub515
  67. 345 gosub3000
  68. 350 goto80
  69. 385 q9$="":poke198,.
  70. 390 geta$
  71. 395 poke646,rnd(1)*15+1:print"*[157]";:ifa$=""then390
  72. 400 ifa$=chr$(13)thenprint" ":q9=val(q9$):return
  73. 405 if(a$=chr$(20)andlen(q9$))thenq9$=left$(q9$,len(q9$)-1):goto432
  74. 410 iflen(q9$)>=l9%thensysad+9,2:goto390
  75. 415 if(a$>="0"anda$<="9")then425
  76. 420 goto390
  77. 425 q9$=q9$+a$
  78. 430 print""a$;:goto390
  79. 432 print" [157][157] [157]";:goto390
  80. 435 print:print"[150][211]mall crater, only local damage! [204]ike"
  81. 440 print"[153] [146][163][176][176][176][180] [146] [150][205]eteor [195]rater in [193]rizona!"
  82. 445 print"[215]ould start a panic in your community!"
  83. 450 return
  84. 455 print:print"[150][194]ig trouble for any area [200][201][212]! [215]iped"
  85. 460 print"[153] [146][163][176][176][176][176][169][176][176][176][176][180] [146] [150]out any [205]etropolis"
  86. 465 print"that lay in its path on impact!"
  87. 470 return
  88. 475 print:printtab(2)"[150][195]ountries would suffer greatly!"
  89. 480 printtab(6)"[153] [146][174][157][157]  [146][163][176][176][176][176][176][176][176][178][179][175][176][176][176][176][176][176][176][180]  [146][145][157][157][177] [146]"
  90. 485 print:printtab(2)"[150][205]illions could be killed instantly!"
  91. 490 return
  92. 495 print:print"[150][205]ajor enviromental damage to our [197]arth!"
  93. 500 printtab(2)"[153] [146][174][157][157]  [146][163][176][176][176][176][176][176][176][176][176][176][176][176][176][178][179][175][176][176][176][176][176][176][176][176][176][176][176][178][180]  [146][145][157][157][177] [146]"
  94. 505 print:print"[150]  [215]ould be a real challege to overcome!"
  95. 510 return
  96. 515 print:print"[150]  10-25% of life on [197]arth may survive!"
  97. 520 print" [153][174][157] [146][174][157][157]  [146][163][176][176][176][176][176][176][176][176][176][150][197]arth's mantle[146][153][176][176][176][176][176][176][176][176][176][180]  [146][145][157][157][177] [146][145][157][177]"
  98. 525 return
  99. 530 poke198,0
  100. 540 geta$
  101. 550 ifa$<>"y"anda$<>"n"then540
  102. 560 return
  103. 3000 poke214,20:print:printtab(8)"[159](1[159]) [196]rop another one
  104. 3010 [153][163]8)"open(2open) (NULL)o (NULL)(NULL)right$(NULL)val(NULL)(NULL)val (NULL)enu"
  105. 3020 [151]198,0
  106. 3030 [161]a$:[139]a$[179]"1"[176]a$[177]"2"[167]3030
  107. 3040 [139]a$[178]"1"[167][142]
  108. 3050 [158]ad[170]15
  109. 3060 [153]"loadload"[199](34)"b.universe"[199](34)","dv
  110. 3070 [153]"run28"
  111. 3080 [151]631,13:[151]632,13:[151]198,2:[128]
  112. 10000 d[178][194](186):n$[178]"crater maker":[159]15,d,15,"s0:"[170]n$:[160]15:[148]n$,d:[128]
  113. 40000 [129]i[178]8[164]29:[151]820[170]i,i:[130]:[139]dv[177]8[175]dv[179]30[167][151]828,dv:[151]820[170]dv,8
  114. 40010 a$[178]"presenter":[141]40030:a$[178]"hello connect":[141]40030
  115. 40020 [153]"load":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128]
  116. 40030 [129]j[178]8[164]29:i[178][194](820[170]j):[139]i[178]14[167][130]
  117. 40040 [160]2:[159]2,i,2:[160]2:[139]st[167]40060
  118. 40050 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40070
  119. 40060 [130]:[142]
  120. 40070 a$[178]"hello connect":q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
  121. 40080 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
  122. 40090 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]
  123. 60000 [153]"":z$[178]" cont                                      ":[151]214,8:[153]
  124. 60010 [153]" openfrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefre":[129]i[178]0[164]10:[153]z$:[130]
  125. 60020 [153]" loglogloglogloglogloglogloglogloglogloglogloglogloglogloglogloglogloglogloglogloglogloglogloglogloglogloglogloglogcont"
  126. 60030 z$(0)[178]"spc( len (NULL) atn (NULL) val (NULL)     (NULL) atn (NULL) val (NULL) fn":z$(1)[178]"by left$enry [lenorky] lenochran"
  127. 60040 z$(3)[178]"(len) 1997 by mid$ & asc (NULL)ublishing, right$nc."
  128. 60050 z$(5)[178]"(NULL)his program is not shareware
  129. 60070 z$(6)="or in the public domain."
  130. 60080 z$(8)="1-800-594-3370 or 1-318-221-8718
  131. 60090 [151]214,10:[153]
  132. 60100 [129]i[178]0[164]8:[153][163]20[171]([195](z$(i))[173]2))""z$(i):[130]:[142]
  133.